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Facility: 
Abstract: 


i Modified by: 
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VAX=11 CONVERT 
Linkage definitions for the convert utilities 


VAX/VMS Operating System 
Keith B Thompson Creation date: May-1982 


KBT0477 Keith 8. Thompson 29-Jan-1983 
Add init_fast_load, load_secondary, extend_area, 
check_key and” load_key linkage 


KBT0437 Keith 8. Thompson 16-Dec-1982 
Preserve R1 in get_vm and get_tmp_vm calls 


<> 
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Linkages NOTE: By only using reg. 2-11 a normal JSB or CALLx 
>< Link oe it preserce these registers. 


Linkage naming convention: 


, i 
i : 
' Pt 
4} ’ 
' ‘ 
: General Convert Linkage: CLSLinkage : 
H Reclaim specific Linkage: RLS Linkage ; 
: Add_key specific Linkage: ALS$Linkage ; 
; Specific Routine Linkage: CL$routine_name, ; 
; RL$routine_name or : 
AL$Sroutine_name : 
; Registers: 3 
-REG_11 11 = KEY_DESC 3 
_REG_10 11 = KEY_DESC ; 
; 10 = CTX 3 
i _REG_9 11 = KEY_DESC ; 
' 1 8 - CTX : 
; - BUCKET 3 
i _REG_8 11 = KEY_DESC ; 
i 10 = CTX ; 
i = BUCKET : 
i = RECORD_CTRL (CL Link) : 
: KEY_POINTER (RL Link) 3 
LINKAGE 

! Generic jsb Link : 

CL$JSB_LINK = JSB, ; 

CL$JSB_LINK_ARG1 = JSB ( REGISTER = 1), ; 

CL$JSB_LINK_ARG2 = JSB ( REGISTER = 1,REGISTER = 2), ; 

H Convert : 

CLS$JSB_REG_11 = JSB : GLOBAL( KEY_DESC = 11), 

CL$JSB_REG_10 = JSB : GLOBAL( CTX = 10, 

KEY_DESC = 11°), 
CL$JSB_REG_9 = JSB : GLOBAL( BUCKET 


CTX 

KEY_DESC 
CL$JSB_REG_8 = JSB : GLOBAL( RECORD_CTRL = 

BUCKET = 


errr rere reer OO — 
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CTX = 10, 
KEY_DESC = 11), 
H Reclaim Linkages 
RLSJSB_REG_9 = JSB : GLOBAL( BUCKET =9 
CTX s 16, 
KEY_DESC = 11), 
RLSJSB_REG_8 § = JSB : GLOBAL( KEY POINTER 2 8. 
BUCRET = 
T = 16, 
KEY_DESC = 11), 


: Add_key Linkages 
ALSJSB_REG_11 = JSB : GLOBAL( KEY_DESC =11), 
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: Routine specific Links 


CLSALLOCATE_CTX = JSB : GLOBAL( CTX = 10), 
ELSCOMPARE. REY = JSB (CR Gist R=0, ! Segment type 
R eiat R=1, ! Segment size 
REGISTER = 2, ' New key seq. 
REGISTER = i Old key seq. 
CLSCONVERT VBN_ID = JSB : GLOBAL( SORT VON = 6,SORT_ID = 7 ), 
CLSCOPY_KEY = JSB : GLOBAL( RECORD_CTRL = r 
= 6 
KEY_DESC = 11), 
CLSCVT_TO_ASC = JSB, 
CLSEXTEND- AREA = JSB, 
CLSFAST_LOAD = JSB : GLOBAL( KEY_DESC = 11 ), 
CLSFREE-VM = JSB, 
CLSFREE-TEMP_VM = JSB, 
CL$GET_REXT REY = JSB : GLOBAL( KEY_DESC = 11 ), 
CLS$GET“RECORD = JSB, 
CLSGET"TEMP_VM = JSB : PRESERVE ( 1), 
CLSGET-VM = JSB : PRESERVE ( 1), 
CLSINIT_FAST_LOAD = JSB : GLOBAL( BUCKET ra % 
= e 
EY DESC = 11 ), 
CLSLOAD_ SECONDARY = JSB : GLOBAL( BUCRET = % 
= oa 
KEY DESC = 11), 
CLSLOAD_SIOR = JSB : GLOBAL( CTX7= 10 ), 
CLSREAD ~ PROLOGUE = JSB, 
CLSSET_REY_ DESC = JSB : GLOBAL( KEY_DESC = 11 ), 
CLSSORT_PRIMARY = JSB : GLOBAL( KEY“DESC = 11 ), 
CLSSORT~ SECONDARY = JSB : GLOBAL( KEYDESC = 11 ), 
CLSWRITE_AREA_DESC = JSB ( REGISTER = T ) 
CLOWRITE-KEY_DESC = JSB : GLOBAL( KEY_DESC = 11 ), 
ALSCHECK_KEY = JSB : GLOBAL( KEY_DESC = 11 ), 
ALSLOAD_REY = JSB : GLOBAL( KEY DESC = 11 ); 


Global register definitions 


: Global registers 


DEF INE_KEY_DESC_GLOBAL = GLOBAL REGISTER 
KEY_DESC 


DEF INE_CTX_GLOBAL = C0, Se tisteR 


11: REF BLOCK C ,BYTE J%, 


10 : REF BLOCK C BYTE J%, 


DEF INE_BUCKET_GLOBAL = GLOBAL REGISTER 
BUCKET 9 : REF BLOCK C ,BYTE J%, 


DEF INE_KEY_POINTER_GLOBAL=GLOBAL REGISTER 
KEY_POINTER = 82, 


DEF INE_RECORD_CTRL_GLOBAL=GLOBAL REGISTER 


<> 
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RECORD _CTRL = 8 : REF BLOCK C ,BYTE J%, 
DEF INE _VBN_1D_GLOBAL = GLOBAL peeisrer 


Vv = 

SORT=1D = %, 
DEF INE_CTX = EXTERNAL REGISTER 

CTx : REF BLOCK C ,BYTE J%, 
DEF INE_BUCKET = EXTERNAL REGISTER 
DEF INE_KEY_DESC = EXTERNAL REGISTER 

KEY_DESC : REF BLOCK C BYTE J%, 
DEF INE_KEY_POINTER = EXTERNAL REGISTER 

KEY_POINTER : REF BLOCK C BYTE J, 
DEF INE_RECORD_CTRL = EXTERNAL REGISTER 

RECORD_CTRL : REF BLOCK C ,BYTE J%; 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


DIG 
CON 


= 
VAX/VMS V4.0 I 


I 
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